დავით სიჭინავა
23 თებერვალი, 2023 წ.
ggplot2 ბიბლიოთეკა;ggplot2 და dplyr ბიბლიოთეკაlibrary(ggplot2) #ვიზუალიზაცია
library(gapminder) #სავარჯიშო მონაცემები Gapminder-იდან
library(scales) #ბიბლიოთეკა მასშტაბის სწორად მისათითებლად
წყარო: socviz.co
წყარო: socviz.co
წყარო: socviz.co
წყარო: socviz.co
წყარო: socviz.co
ადამიანის თვალი მიდრეკილია, მონაცემებში გარკვეული კანონზომიერებები ,,დაინახოს'' იმის მიუხედავად, არსებობს თუ არა ეს კანონზომიერება
წყარო: socviz.co
წყარო: socviz.co
წყარო: menu.ge
წყარო: socviz.co
data(gapminder)
p <- ggplot(gapminder)
p
ggplot2 გარემოში ობიექტს წარმოადგენსaes() ფუნქციის მეშვეობით.p <- ggplot(data = gapminder,
mapping = aes(x = gdpPercap,
y = lifeExp))
p + geom_point()
წყარო: Wickham, 2010
წყარო: Wickham, 2010
position: პოზიცია,color: ,,გარეთა ფერი",fill: ,,შიდა ფერი",shape: მარკერების ფორმა,linetype: წრფის ტიპი,size: ზომაp <- ggplot(data = gapminder,
mapping = aes(x = gdpPercap,
y=lifeExp))
p + geom_point()+
geom_smooth()
p <- ggplot(data = gapminder,
mapping = aes(x = gdpPercap,
y=lifeExp))
p + geom_point()+
geom_smooth()+
scale_x_log10()
ggplot(gapminder,
aes(x = gdpPercap,
y=lifeExp))+
geom_point(aes(color=continent))+
geom_smooth()+
scale_x_log10()
ggplot(gapminder,
aes(x = gdpPercap,
y=lifeExp))+
geom_point(aes(color=pop))+
geom_smooth()+
scale_x_log10()
ggsave("gapminder_plot.png", device="png", height=5)
p <- ggplot(data = gapminder, mapping = aes(x = year, y = gdpPercap))
p + geom_line(color="gray70", aes(group = country)) +
geom_smooth(size = 1.1, method = "loess", se = FALSE) +
scale_y_log10(labels=scales::dollar) +
facet_wrap(~ continent, ncol = 5) +
labs(x = "წელი",
y = "მშპ. ერთ სულ მოსახლეზე",
title = "მშპ. ერთ სულ მოსახლეზე, ხუთი კონტინენტის მიხედვით")
ggplot2 ,,შპარგალკა''Kieran Healy: Data Visualization - A practical introduction Selva Prabhakaran: How to make any plot in ggplot2? Ista Zahn: R graphics workshop @ Harvard